home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Mac Game Programming Gurus / TricksOfTheMacGameProgrammingGurus.iso / More Source / C⁄C++ / Xconq 7.0d37 / source / lib / ww2-38.g < prev    next >
Text File  |  1993-11-14  |  1KB  |  63 lines
  1. (game-module "ww2-38"
  2.   (title "WWII Jan 38")
  3.   (blurb "Full WWII, January 1938.  This is a monster game, based on the advanced ww2 unit types.")
  4.   (base-module "ww2-adv")
  5.   (variants
  6.    (see-all true)
  7.    )
  8.   (instructions (
  9.    "In this game you play the national leader of your country during WWII."
  10.    ))
  11.   )
  12.  
  13. ;;; Define basic terrain.
  14.  
  15. (include "earth-1deg")
  16.  
  17. (set synthesis-methods nil)
  18.  
  19. ;;; All the participants and major neutrals.
  20. ;;; (should include all the "minor powers" eventually)
  21.  
  22. (side 1 (name "UK") (emblem-name "flag-uk"))
  23. (side 2 (name "France") (emblem-name "flag-france"))
  24. (side 3 (name "USA") (emblem-name "flag-usa"))
  25. (side 4 (name "Germany") (emblem-name "flag-swastika"))
  26. (side 5 (name "Italy") (emblem-name "flag-italy"))
  27. (side 6 (name "Japan") (emblem-name "flag-japan"))
  28. (side 7 (name "USSR") (emblem-name "soviet-star"))
  29. (side 8 (name "China") (emblem-name "flag-china"))
  30. (side 9 (name "Spain") (emblem-name "flag-spain"))
  31.  
  32. ;;; Two-letter codes for sides.
  33.  
  34. (define uk 1)
  35. (define fr 2)
  36. (define us 3)
  37. (define de 4)
  38. (define it 5)
  39. (define jp 6)
  40. (define su 7)
  41. (define zh 8)
  42. (define es 9)
  43.  
  44. ;;; Define the nationalities of the people.
  45.  
  46. (include "p-e1-1938")
  47.  
  48. ;;; Define the cities.
  49.  
  50. (include "u-e1-1938")
  51.  
  52. ;; (add minor countries also?)
  53.  
  54. ;; (set up agreements applying to particular dates)
  55.  
  56. ;; not really correct
  57.  
  58. (scorekeeper (do last-side-wins))
  59.  
  60. ;; Default to setting up at the beginning of 1938.
  61.  
  62. (set initial-date "Jan 1938")
  63.